home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 3 #6
/
Commodore_Disk_User_Vol.3_6_1990_-.d64
/
screen enhancer
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
3KB
|
75 lines
0 a=a+1:ifa=1thenload"enhancer code",8,1
5 rem - screen enhancer 64 demo.(c)2/7/89 j.doig-
10 sys50624,1:rem switch on and initialise
15 sys50606,0:rem screen all black
20 sys50621,2:rem top & bottom borders red
25 poke53280,0:rem sides black
30 sys50600,1,13:rem line 1 lt green
35 sys50609,1,22:rem line 1 lower case
40 sys50600,0,1:rem top line white
45 sys50600,2,11:rem line 2 dk grey
50 sys50600,4,15:rem line 4 lt grey
55 print"[147][155][223][146] [152][169]"
60 print"[155][169] [152][223]"
65 print"[145][145][145][155] [146][212]his is an example of [211]creen [197]nhancer.[152] "
70 print"[149][197]x. [206]o.1 [193] [205]enu"
75 sys50609,4,22:rem line 4 lower case
80 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
85 print"[151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
90 print"[155]1) [195]ontinue."
95 print"[155]2) [209]uit."
100 print"[155]3) [196]o something else."
105 sys50612,7,9,22:rem lines 7 to 9 lower case
110 fort=0to2
115 forg=9to7step-1:sys50603,7,9,0:sys50600,g,11:rem blackout and highlight line
120 forh=0to80:next:next:next
125 print"[149][197]x. [206]o.2 [193] [208]icture."
130 sys50609,11,22:rem line 11 lower case
135 sys50600,11,15:rem line 11 lt grey
140 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
145 print"[151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
150 fort=13to19:reada:sys50600,t,a:next:rem set lines 13 to 19 to data colours
155 print"[223][169]";
160 print" [223][169] ";
165 print" ";
170 print" ";
175 print" ";
180 print" [146][169][146][223] ";
185 print"[146][169][146][223]"
190 print"[167] [195][178][195][195][195][195][195][178][195] [165]"
195 print"[167][208] [221] [221] [207][165]"
200 print"[164][164][164][164]"
205 print"[145][167][150] [146][165]"
210 print"[167][150] [146][165]"
215 print"[145][163][163][163][163]"
220 print"[144] [157][157] [157][157] "
225 print"[164][164][157][157][157][167][165][157][157][157][157][167][165]";
230 print"[157][157][157][157][167][165]"
235 print"[149][197]x. [206]o.3 [194]order [211]prites"
240 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
245 print"[151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
250 sys50600,22,15:rem line 22 lt grey
255 sys50609,22,22:rem line 22 lower case
260 poke53269,7:rem sprites 0 to 2 on
265 poke53248,100:poke53250,154:poke53252,208:rem set x coordinates (y is 0)
270 poke53287,7:poke53288,7:poke53289,7:rem sprites yellow
275 poke53277,7:rem expand sprites
280 poke48120,128:poke48121,129:poke48122,130:rem set pointers (note addresses)
285 fort=0to191:reada
290 poke32768+128*64+t,a*int(rnd(1)*256):next:rem define sprites (in bank 1)
295 restore:reada,b,c,d,e,f,g
300 goto285
305 data15,15,14,14,14,3,3
310 data1,0,1,1,0,1,1,0,1,1,0,1,1,0,1,1,0,1,1,0,1
315 data1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
320 data1,0,1,1,0,1,1,0,1,1,0,1,1,0,1,1,0,1,1,0,1
325 data0
330 data1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
335 data0,1,0,0,1,0,0,1,0,0,1,0,0,1,0,0,1,0,0,1,0
340 data1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
345 data0
350 data0,1,0,0,1,0,0,1,0,0,1,0,0,1,0,0,1,0,0,1,0
355 data0,1,0,0,1,0,0,1,0,0,1,0,0,1,0,0,1,0,0,1,0
360 data0,0,0,0,0,0,0,0,0,0,1,0,0,1,0,0,1,0,0,1,0
365 data0